home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Complete Applications / Screen Savers / Moire (Pascal) / MOIREGLOBALS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-10-22  |  832 b   |  56 lines  |  [TEXT/ttxt]
  1. UNIT MOIREGLOBALS;
  2.  
  3. INTERFACE
  4.  
  5. USES MacIntf;
  6.  
  7.     CONST
  8.         AppleID = 300;
  9.         FileID = 301;
  10.         EditID = 302;
  11.         PatMenuID = 303;
  12.  
  13.         AboutID = 1000;
  14.  
  15.         UndoItem = 1;
  16.         CutItem = 3;
  17.         CopyItem = 4;
  18.         PasteItem = 5;
  19.         ClearItem = 6;
  20.  
  21.         PatItem = 1;
  22.         StepItem = 2;
  23.         InvertItem = 3;
  24.         FlashItem = 4;
  25.  
  26.         SBarWidth = 16;
  27.         active = 0;
  28.         inactive = 255;
  29.  
  30.         PatternDlgID = 1001;
  31.         StepID = 1002;
  32.  
  33.         blackID = 3;
  34.         dkGrayID = 4;
  35.         grayID = 5;
  36.         ltGrayID = 6;
  37.  
  38.         topLine = 15;
  39.         DflashRate = 8;
  40.  
  41.     VAR
  42.         AppleMenu, FileMenu, EditMenu, PatMenu : MenuHandle;
  43.         Finished, Flashing, flashPhase : boolean;
  44.         theEvent : EventRecord;
  45.         myWindow : WindowPtr;
  46.         LastPoint : point;
  47.         Step : integer;
  48.         CurrentPat, tempPat : integer;
  49.         timeVal, flashVal : longint;
  50.         flashRate : integer;
  51.         FlashControl : ControlHandle;
  52.         MoireRect : rect;
  53.  
  54. IMPLEMENTATION
  55.  
  56. END.